home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Programming / AmigaTalk / prelude / ACollection.p next >
Text File  |  2000-04-24  |  3KB  |  77 lines
  1. pTempVar <- <primitive 110 13 >
  2. <primitive 112 pTempVar 1  " shallowCopy " \
  3.   #( #[ 16r20 16rA4 16r20 16rA3 16rB0 16r71 16r51 16r20 16rA3 16rB2 16rE1 \
  4.         16r02 16r07 16r21 16r22 16r20 16r22 16rB1 16rD0 16rF3 16rB3 \
  5.         16rF2 16r21 16rF3 16rF5] \
  6.     #(  )) >
  7.  
  8. <primitive 112 pTempVar 2  " padTo: " \
  9.   #( #[ 16r20 16rA3 16r21 16rC7 16rF7 16r0C 16r20 16r20 16rA4 16r21 16r20 \
  10.         16rA3 16rC1 16rB0 16r0B 16r11 16rF8 16r02 16rF2 16r20 16rF3 \
  11.         16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 3  " next " \
  15.   #( #[ 16r10 16r51 16rC0 16r60 16r10 16r20 16rA3 16rC8 16rF7 16r03 16r20 \
  16.         16r10 16rB1 16rF3 16rF5] \
  17.     #(  )) >
  18.  
  19. <primitive 112 pTempVar 4  " lastKey " \
  20.   #( #[ 16r20 16rA3 16rF3 16rF5] \
  21.     #(  )) >
  22.  
  23. <primitive 112 pTempVar 5  " firstKey " \
  24.   #( #[ 16r51 16rF3 16rF5] \
  25.     #(  )) >
  26.  
  27. <primitive 112 pTempVar 6  " first " \
  28.   #( #[ 16r51 16r60 16r10 16r20 16rA3 16rC8 16rF7 16r03 16r20 16r10 16rB1 \
  29.         16rF3 16rF5] \
  30.     #(  )) >
  31.  
  32. <primitive 112 pTempVar 7  " do: " \
  33.   #( #[ 16r51 16r20 16rA3 16rB2 16rE1 16r02 16r08 16r22 16r60 16r21 16r20 \
  34.         16r22 16rB1 16rB4 16rF3 16rB3 16rF2 16rF5] \
  35.     #(  )) >
  36.  
  37. <primitive 112 pTempVar 8  " deepCopy " \
  38.   #( #[ 16r20 16rA4 16r20 16rA3 16rB0 16r71 16r51 16r20 16rA3 16rB2 16rE1 \
  39.         16r02 16r09 16r21 16r22 16r20 16r22 16rB1 16r0A 16r14 16rD0 \
  40.         16rF3 16rB3 16rF2 16r21 16rF3 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 9  " currentKey " \
  44.   #( #[ 16r10 16rF3 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 10  " copyFrom:to: " \
  48.   #( #[ 16r22 16r21 16rC1 16r51 16rC0 16r73 16r20 16rA4 16r23 16rB0 16r74 \
  49.         16r24 16r51 16r23 16r20 16r21 16r84 16r00 16rF2 16r24 16rF3 \
  50.         16rF5] \
  51.     #( #replaceFrom:to:with:startingAt:  )) >
  52.  
  53. <primitive 112 pTempVar 11  " coerce: " \
  54.   #( #[ 16r20 16rA4 16r21 16rA3 16rB0 16r72 16r22 16r51 16r21 16rA3 16r21 \
  55.         16r83 16r00 16rF2 16r22 16rF3 16rF5] \
  56.     #( #replaceFrom:to:with:  )) >
  57.  
  58. <primitive 112 pTempVar 12  " at:ifAbsent: " \
  59.   #( #[ 16r21 16r50 16rC8 16rFB 16r04 16r21 16r20 16rA3 16rCC 16rF7 16r03 \
  60.         16r22 16rA5 16rF3 16rF2 16r20 16r21 16rB1 16rF3 16rF5] \
  61.     #(  )) >
  62.  
  63. <primitive 112 pTempVar 13  " = " \
  64.   #( #[ 16r20 16rA3 16r21 16rA3 16rCA 16rF7 16r02 16r5C 16rF3 16rF2 16r50 \
  65.         16r72 16r20 16rE1 16r03 16r0E 16r23 16r21 16r22 16r51 16rC0 \
  66.         16rF1 16r72 16rB1 16rCA 16rF7 16r02 16r5C 16rF4 16rF3 16rB3 \
  67.         16rF2 16r5B 16rF3 16rF5] \
  68.     #(  )) >
  69.  
  70. <primitive 98 #ArrayedCollection \
  71.   <primitive 97 #ArrayedCollection #SequenceableCollection #AmigaTalk:General/ArrayedCollection.st \
  72.    #(  #current ) \
  73.    #( #shallowCopy #padTo: #next #lastKey #firstKey #first #do: #deepCopy  \
  74.        #currentKey #copyFrom:to: #coerce: #at:ifAbsent: #=  ) \
  75.   pTempVar 5 7 >>
  76.  
  77.